home *** CD-ROM | disk | FTP | other *** search
/ EnigmA Amiga Run 1996 June / EnigmA AMIGA RUN 08 (1996)(G.R. Edizioni)(IT)[!][issue 1996-06][EARSAN CD VII].iso / earcd / comm2 / mm_1_2.lha / MM / Rexx / MM_Node.rexx < prev    next >
OS/2 REXX Batch file  |  1996-04-30  |  710b  |  30 lines
  1. /*
  2. ** This script shows how to obtain
  3. ** informations about a node
  4. */
  5.  
  6. address 'MAILMANAGER'
  7.  
  8. MM_GetNodeInfo '39:102/1.0@amiganet' nodeinfo
  9.  
  10. if RC=0 THEN DO
  11.     say 'ADDRDIM   :' nodeinfo.addrdim
  12.     say 'PACKDIM   :' nodeinfo.packdim
  13.     say 'FLAVOR    :' nodeinfo.echoflavor
  14.     say 'PKTPW     :' nodeinfo.pktpw
  15.     say 'AREAFIXPW :' nodeinfo.areafixpw
  16.     say 'TICKPW    :' nodeinfo.tickpw
  17.     say 'USERFLAGS :' nodeinfo.userflags
  18.     DO i=0 FOR nodeinfo.GROUPCOUNT
  19.         say 'GROUP' i 'NAME  :' nodeinfo.GROUPNAME.i
  20.         say 'GROUP' i 'LEVEL :' nodeinfo.GROUPLEVEL.i
  21.         END
  22.     DO i=0 FOR nodeinfo.AREA.COUNT
  23.         say 'AREA' i ':' nodeinfo.AREA.i
  24.         END
  25.     DO i=0 FOR nodeinfo.TICKAREA.COUNT
  26.         say 'TICKAREA' i ':' nodeinfo.TICKAREA.i
  27.         END
  28.     END
  29.  
  30.